cmp.b #1,4(a0) bne.s \quitinputhd move.l 6(a0),d0 and.l #$00ff73ff,d0 ;MASK cmp.l sct_key(pc),d0 ;KEY bne.s \quitinputhd

movem.l d1-a6,-(sp) move.l sct_reply+16(pc),a1 move.b sct_reply+15(pc),d1 moveq #0,d0 bset d1,d0 move.l 4.w,a6 jsr -324(a6) ;Signal() movem.l (sp)+,d1-a6 suba.l a0,a0

\quitinputhd: move.l a0,d0 ;this event is transmitted or not rts

;——————

;——————————————————————–

;—————— include ports.r

;—————— ; Data. ; sct_key: dc.l $210001 sct_inputname: dc.b "input.device",0,0

;—————— sct_handler: dc.l 0,0 dc.b 2,80 dc.l 0 dc.l 0 dc.l 0 ;inputhdroutine

sct_io: ds.b 48,0 sct_reply: ds.b 32,0

;——————

;——————————————————————–

;—————— base sct_oldbase

;—————— endif

end

This document was generated on October 23, 2022 using texi2html 5.0.